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**RULE FILE** 

@ 

Time: [ Fri Sep 27 15:13:28 1996 ] 

Examples: dclass.exs 
Algorithm: UNORDERED 
Error_Estlmate: LAPLACIAN 
Threshold: 0.00 
Star: 5 



*UNORDERED-RULE-LIST* 
IF sumOfsumOfnumpack <4; 

AND sumOfeumOffcem[^fete < 4j 
THEN tclass = cO [30 0 0 OJ^-^^^'"'^^ 
IF sumOfsumOfpcomplete < 112.00 

AND sumOfsumOffcomplete < 319.50. 

THEN tclass = cO [30 0 0 0] 

IF 148.50 < sumOfsumOfnumpack < 6600100^ 

THEN tclass = c1 -P 9 n p ] 



IF sumOfcountOftimestamp < 30.00 

AND sumOfsumOfnumj 

THEN tclass = drtOTTOO] 
IF sumOfcountOftimestamp <44.50 
AND sumOfsumOffcomplete > 6348.50 

THEN tclass = c2 [0 0 6 0]- — 

If sumOfsumOfpcomplete > 1936.00 
THEN tclass = c3 [0 0 0 3] 
(DEFAULT) tclass = cO [32 10 6 3] 
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#!/opt/corp/contrib/bin/perl -w 

sub apply 
{ 

$n={$sumOfcountOftirnestamp,$sumOfsumOfnumpack.$sumOfsurnOfpcomplete, 

$sumOfsurnOflcomplete,$sumOfsumOffcomplete,$sumOfsumOfbytes) = spIitC ' 
if ($n != 6 && $wam) 
{ print STDERR "Wrong number of input fields: $n 1= 6 in line $.\n"; } 

rules: ^ — ■ " 

if (($sumOfsumOfnumpack < 42.50) && ($sumOfsumOffcomplete < 4730.00)) 
{ $tdass = (defined $c{'cO'}) ? $cCc07 : 'cO'; last rules; } # 30 0 0 0^ 

if (($sumOfsumOfpcompiete < 112.00) && ($sumOfsumOffcomplete < 319.50)) 
{ $tclass = (defined $cf cO*}) ? ScCcO*} : •cO'; last rules; } # 30 0 0 0 

if ((148.50 < $sumOfsumOfnumpack) ($sumOfsumOfnumpack < 6600.00)) 
{ $tclass = (defined $cfc1'}) ? ScCcI*} : 'cl*; last rules; } #0900 

if (($sumOfcountOftimestamp < 30.00) && ($sumOfsumOfnumpack > 42.50)) 
{ $tclass = (defined ScCdl) ? $cfc1l: 'or; last rules; } # 0 1 0 0 

if (($sumOfcountOftimestamp < 44.50) && ($sumOfsumOffcomplete > 6348.50)) 
{ $tdass = (defined $c{'c2'}) ? $c{c2'} : 'c2*; last mies;,} # 0 O 6 0/ 

if (($sumOfsumOfpcomplete > 1936.00)) 

{ Stclass = (defined $c{'c3'}) ? $cfc3'} : ;c3'; |ast rules; } # 0;0..p,3 



{ $tclass = (defined $c{'cO'}) ? $c{'g07 : 'pO-; last mles;!* 

} 

return $tciass; 

} 

if ($#ARGV < $D { die "Need some arguments.Xn"; } 
$warn = 0; 

while ($ARGV[0] /^-/) 
{ 

if ($ARGV[0] eq "-w") { $wam =1 ; } 

if ($ARGV[0] eq "-d") 

{ 

open(Desc.$ARG\/[0]) || 

die "Can't find class descriptions: ".$ARGV[0]."\n"- 

while (<Desc>) 
{ 

chop; 

($ciassname,$decription) = split(\',$_); 
$c{$cIassname}=$decription; 

} 

close Desc; 

} 

shift; 

} 

while (<>) 
{ 

chop; 

$dass = &apply(); 
print $_," ",$class;'\n"; 

} 



